home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_A.d64 / metal star (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  405 lines
  1. 1 qp=0
  2. 5 j=0
  3. 10 print"[147]"
  4. 20 poke 53281,7:poke 53280,0
  5. 30 print"[144]"
  6. 40 print" lionware proudly presents:"
  7. 45 print"[156]"
  8. 50 print:print:print"             metal   star              "
  9. 52 print"            [196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  10. 55 print""
  11. 60 print:print:print:print:print" written by peter bohlmann"
  12. 70 print"[144]"
  13. 80 print:print:print:print:print:print" <space>"
  14. 90 get aa$:if aa$="" then 90
  15. 100 if aa$=chr$(32) then 110
  16. 110 print"[147]"
  17. 120 input" wie ist dein name ";n$
  18. 140 print:input" bandname ";bn$
  19. 160 print:print" wieviele leute sollen in der band"
  20. 170 print:input" spielen ";am
  21. 175 if am<1 then 160
  22. 180 if am=1 then 240
  23. 190 if am=2 then 250
  24. 200 if am<6 then 260
  25. 210 if am=6 then 270
  26. 220 if am>6 then 280
  27. 230 goto 160
  28. 240 print:print:print" aha...ein soloprojekt !!!":goto 290
  29. 250 print:print:print" punk ?":goto 290
  30. 260 print:print:print" geht klar ...":goto 290
  31. 270 print:print:print" noch mehr ...":goto 290
  32. 280 print:print:print" 'ne big-band ?":goto 290
  33. 290 get aa$:if aa$="" then 290
  34. 300 if aa$=chr$(32) then 310
  35. 310 print"[147]"
  36. 320 print" druecke <space>, um das talent des"
  37. 330 print:print" besten songschreibers in der band zu"
  38. 335 print:print" ermitteln (1=unfaehig / 7=genial) !"
  39. 340 get aa$:if aa$="" then 340
  40. 350 if aa$=chr$(32) then 355
  41. 355 print
  42. 360 ls=int(7*rnd(1))+1
  43. 365 print""
  44. 370 print:print" der talentwert liegt bei"ls"..."
  45. 375 print"[144]"
  46. 380 print:print:print" druecke abermals <space>, um das"
  47. 390 print:print" durschnittskoennen der musiker zu er-"
  48. 400 print:print" fahren (1=unfaehig / 7=perfekt) !"
  49. 410 get aa$:if aa$="" then 410
  50. 420 if aa$=chr$(32) then 430
  51. 430 dk=int(7*rnd(1))+1
  52. 435 print""
  53. 440 print:print:print" der durchschnittswert liegt bei"dk"..."
  54. 450 get aa$:if aa$="" then 450
  55. 460 if aa$=chr$(32) then 470
  56. 470 print"[147]"
  57. 475 print"[144]"
  58. 480 print" welchen stil wollt ihr spielen ?"
  59. 490 print:print:print" 1= hardrock"
  60. 500 print:print" 2= heavy metal"
  61. 510 print:print" 3= speed metal"
  62. 520 print:print" 4= thrash metal"
  63. 530 print:print" 5= death metal"
  64. 540 print:print" 6= grindcore"
  65. 550 print:print" 7= punk"
  66. 560 print:print:input"";s
  67. 570 if s= 1 then 650
  68. 580 if s= 2  then 660
  69. 590 if s= 3  then 670
  70. 600 if s= 4  then 680
  71. 610 if s= 5  then 690
  72. 620 if s= 6  then 700
  73. 630 if s= 7  then 710
  74. 640 goto 470
  75. 650 s$="hardrock":v=5000:goto 720
  76. 660 s$="heavy metal":v=2000:goto 720
  77. 670 s$="speed metal":v=2500:goto 720
  78. 680 s$="thrash metal":v=1500:goto 720
  79. 690 s$="death metal":v=750:goto 720
  80. 700 s$="grindcore":v=300:goto 720
  81. 710 s$="punk":v=2000:goto 720
  82. 720 print"[147]"
  83. 730 print" welches image wollt ihr euch zulegen ?"
  84. 740 print:print" 1= lover boys"
  85. 750 print:print" 2= jungs von nebenan"
  86. 760 print:print" 3= coole typen"
  87. 770 print:print" 4= kaputte typen"
  88. 780 print:print" 5= harte typen"
  89. 785 print:print" 6= satanisten"
  90. 790 print:print:input"";i
  91. 800 if i= 1  then 870
  92. 810 if i= 2  then 880
  93. 820 if i= 3  then 890
  94. 830 if i= 4  then 900
  95. 840 if i= 5  then 910
  96. 850 if i=6 then 915
  97. 860 goto 720
  98. 870 i$="lover boys":goto 920
  99. 880 i$="jungs von nebenan":goto 920
  100. 890 i$="coole typen":goto 920
  101. 900 i$="kaputte typen":goto 920
  102. 910 i$="harte typen":goto 920
  103. 915 i$="satanisten":goto 920
  104. 920 if s=1 then 990
  105. 930 if s=2 then 1020
  106. 940 if s=3 then 1020
  107. 950 if s=4 then 1070
  108. 960 if s=5 then 1100
  109. 970 if s=6 then 1100
  110. 980 if s=7 then 990
  111. 990 if i>3 then 1010
  112. 1000 v=v+1000:goto 1140
  113. 1010 v=v-i*500:goto 1140
  114. 1020 if i=1 then 1050
  115. 1030 if i=6 then 1060
  116. 1040 goto 1140
  117. 1050 v=v-750:goto 1140
  118. 1060 v=v-i*75:goto 1140
  119. 1070 if i=1 then 1090
  120. 1080 goto 1140
  121. 1090 v=v-1000:goto 1140
  122. 1100 if i<3 then 1120
  123. 1110 if i>4 then 1130
  124. 1115 goto 1140
  125. 1120 v=0:goto 1140
  126. 1130 v=v+i*100:goto 1140
  127. 1140 dq=0
  128. 1141 print"[147]"
  129. 1150 j=j+1
  130. 1160 print" ihr verschanzt euch im proberaum und"
  131. 1170 print:print" uebt wie die besessenen ! nach ei-"
  132. 1180 print:print" nigen monaten kommt endlich die zeit,"
  133. 1190 print:print" euer demo nr."j" aufzunehmen !"
  134. 1200 print:print:input" name des demos ";d$
  135. 1210 print:print:print" druecke <space>, um zu ermitteln,"
  136. 1220 print:print" welchen qualitaetsstandard ihr er-"
  137. 1230 print:print" reicht (1=total mies / 7=super) !"
  138. 1235 print""
  139. 1240 get aa$:if aa$="" then 1240
  140. 1250 if aa$=chr$(32) then 1260
  141. 1260 q1=ls+dk
  142. 1270 q2=q1/2
  143. 1280 zu=int(2*rnd(1))+1
  144. 1290 xx=int(2*rnd(1))+1
  145. 1300 if xx=1 then 1320
  146. 1310 if xx=2 then 1330
  147. 1320 dq=q2+zu:goto 1340
  148. 1330 dq=q2-zu:goto 1340
  149. 1340 if dq< 0.1 then 1342
  150. 1341 goto 1343
  151. 1342 dq=1:goto 1343
  152. 1343 if dq>7 then 1345
  153. 1344 goto 1349
  154. 1345 dq=7:goto 1349
  155. 1349 print:print" der standard des demos betraegt:"dq"!"
  156. 1350 print"[144]"
  157. 1360 get aa$:if aa$="" then 1360
  158. 1370 if aa$=chr$(32) then 1380
  159. 1380 print"[147]"
  160. 1390 if dq<2 then 1440
  161. 1400 if dq<4 then 1470
  162. 1410 if dq<5 then 1530
  163. 1420 if dq<7 then 1630
  164. 1430 if dq=7 then 1740
  165. 1440 print" euer demo ist wirklich tierisch da-"
  166. 1450 print:print" neben...kult - aber schlecht ..."
  167. 1460 print:print" versucht es nochmal !!!":goto 1510
  168. 1470 print" besonders gut ist das demo nicht ge-"
  169. 1480 print:print" worden. angebote von plattenfirmen"
  170. 1490 print:print" bleiben aus...vielleicht klappt es"
  171. 1500 print:print" beim naechsten mal..."
  172. 1510 rem
  173. 1511 if j>7 then 1515
  174. 1512 goto 1519
  175. 1515 print:print:print" doch diesmal gibt es keinen neuen"
  176. 1516 print:print" versuch ! entmutigt loest ihr euch"
  177. 1517 print:print" auf ...":end
  178. 1519 get aa$:if aa$="" then 1519
  179. 1520 if aa$=chr$(32) then 1140
  180. 1530 print" es meldet sich das indie-label 'wumm'"
  181. 1540 print:print" und bietet euch einen vertrag an !!!"
  182. 1550 print:print" nehmt ihr an oder wollt ihr es mit"
  183. 1560 print:print" einem neuen demo nochmal versuchen ?"
  184. 1570 print:print" 1= annehmen"
  185. 1580 print:print" 2= neues demo aufnehmen"
  186. 1590 print:input"";a
  187. 1600 if a=1 then 1840
  188. 1610 if a=2 then 1140
  189. 1620 goto 1380
  190. 1630 print" ein superdemo !!! es melden sich zwei"
  191. 1640 print:print" groessere indie-labels !!!"
  192. 1650 print:print" wo wollt ihr unterschreiben ?"
  193. 1660 print:print" 1='chaos records'"
  194. 1670 print:print" 2='yuppie vinyl'"
  195. 1680 print:print" 3= neues demo aufnehmen"
  196. 1690 print:print:input"";a
  197. 1700 if a=3 then 1140
  198. 1710 if a=1 then 1850
  199. 1720 if a=2 then 1860
  200. 1730 goto 1380
  201. 1740 print" das demo ist spitzenklasse !!!"
  202. 1750 print:print" das major-label 'glamour house' bie-"
  203. 1760 print:print" tet euch einen supervertrag an !!!"
  204. 1770 print:print" 1= vertrag annehmen"
  205. 1780 print:print" 2= neues demo aufnehmen"
  206. 1790 print:print:input"";a
  207. 1800 if a=2 then 1140
  208. 1810 if a=1 then 1830
  209. 1820 goto 1380
  210. 1830 pf$="glamour house":v=v+5000:goto 1870
  211. 1840 pf$="wumm":v=v+500:goto 1870
  212. 1850 pf$="chaos records":v=v+1000:goto 1870
  213. 1860 pf$="yuppie vinyl":v=v+1500:goto 1870
  214. 1870 ty=0
  215. 1875 print"[147]"
  216. 1876 ty=ty+1
  217. 1880 print" ihr macht euch daran, eure platte"
  218. 1890 print:print" nr."ty" zu schreiben !!!"
  219. 1900 print:print" wieviel monate wollt ihr euch dafuer"
  220. 1910 print:print" zeit lassen ?"
  221. 1920 print:print:input"";z
  222. 1925 y=int(3*rnd(1))+1
  223. 1930 if z<1 then 1980
  224. 1940 if z<2 then 1990
  225. 1950 if z<3 then 2000
  226. 1960 if z<5 then 2010
  227. 1970 goto 2020
  228. 1980 qp=qp-y*2:goto 2030
  229. 1990 qp=qp-y:goto 2030
  230. 2000 goto 2030
  231. 2010 qp=qp+y:v=v-z*200:goto 2030
  232. 2020 print:print" da spielt euer label nicht mit !!!":j=j-1
  233. 2021 get aa$:if aa$="" then 2021
  234. 2022 if aa$=chr$(32) then 1875
  235. 2030 print:print:print" wie soll die platte heissen ?"
  236. 2040 print:print:input"";np$
  237. 2050 q1=dk+ls
  238. 2060 qp=qp+q1/2
  239. 2070 w=int(2*rnd(1))+1
  240. 2080 o=int(2*rnd(1))+1
  241. 2090 if o=1 then 2110
  242. 2100 if o=2 then
  243. 2110 qp=qp+w:goto 2130
  244. 2120 qp=qp-w:goto 2130
  245. 2130 print:print" wie ist wohl ihre qualitaet ?"
  246. 2140 get aa$:if aa$="" then 2140
  247. 2150 if aa$=chr$(32) then 2160
  248. 2160 print""
  249. 2161 if qp< 0.1 then 2163
  250. 2162 goto 2164
  251. 2163 qp=1:goto 2170
  252. 2164 if qp>7 then 2166
  253. 2165 goto 2170
  254. 2166 qp=7:goto 2170
  255. 2170 print:print" die lp hat eine qualitaet von"qp" !"
  256. 2180 print"[144]"
  257. 2190 get aa$:if aa$="" then 2190
  258. 2200 if aa$=chr$(32) then 2210
  259. 2210 print"[147]"
  260. 2220 print" die presseresonanz..."
  261. 2225 print""
  262. 2230 get aa$:if aa$="" then 2230
  263. 2240 if aa$=chr$(32) then 2245
  264. 2245 print:print" "np$" von "bn$ "
  265. 2246 [153]"stop"
  266. 2250 [139] qp[179]3 [167] 2290
  267. 2260 [139] qp[179]5 [167] 2330
  268. 2270 [139] qp[179]7 [167] 2360
  269. 2280 [139] qp[178]7 [167] 2390
  270. 2290 [153]:[153]:[153]" was soll das ? "bn$" spie-"
  271. 2300 [153]:[153]" len "s$", wie er nicht sein"
  272. 2310 [153]:[153]" sollte ! die"am" 'musiker' sind"
  273. 2320 [153]:[153]" absolut unfaehig !!!":[137] 2430
  274. 2330 [153]:[153]:[153]" mmh...recht passabel ..."
  275. 2340 [153]:[153]" haut mich zwar nicht vom hocker, aber"
  276. 2350 [153]:[153]" ich hab' schon schlechteres gehoert.":[137] 2430
  277. 2360 [153]:[153]:[153]" gefaellt mir ! schon nach dem ers-"
  278. 2370 [153]:[153]" ten hoeren geht man mit !"
  279. 2380 [153]:[153]" endlich mal guter "s$" !!!":[137] 2430
  280. 2390 [153]:[153]:[153]" waaaaahhhnnnnsinnnn !!!!!!"
  281. 2400 [153]:[153]" spitze ! toll ! umwerfend ! klasse !"
  282. 2410 [153]:[153]" super "s$" !!! was will"
  283. 2420 [153]:[153]" man denn noch mehr ???":[137] 2430
  284. 2430 [161] aa$:[139] aa$[178]"" [167] 2430
  285. 2440 [139] aa$[178][199](32) [167] 2450
  286. 2450 [153]"load"
  287. 2460 [139] s[178]1 [176] 7 [167] 2510
  288. 2470 [139] s[178]2 [176] 3 [167] 2530
  289. 2480 [139] s[178]4 [167] 2550
  290. 2490 [139] s[178]5 [167] 2570
  291. 2500 [139] s[178]6 [167] 2590
  292. 2510 d[178]qp[172]2
  293. 2520 v[178]v[172]d:[137] 2600
  294. 2530 d[178]qp[172]1
  295. 2540 v[178]v[172]d:[137] 2600
  296. 2550 d[178]qp[172]0.5
  297. 2560 v[178]v[172]d:[137] 2600
  298. 2570 d[178]qp[172]0.25
  299. 2580 v[178]v[172]d:[137] 2600
  300. 2590 d[178]qp[172]0.1
  301. 2595 v[178]v[172]d:[137] 2600
  302. 2600 [143] hallo
  303. 2601 [139] v[179]1 [167] 2603
  304. 2602 [137] 2605
  305. 2603 v[178]1000:[137] 2605
  306. 2605 fc[178][181](20000[172][187](1))[170]1
  307. 2606 i1[178][181](3[172][187](1))[170]1
  308. 2607 [139] i1[178]1 [167] 2608:[139] i1[178]2 [167] 2615:[139] i1[178]3 [167] 2622:
  309. 2608 v[178]v[171]fc[172]2
  310. 2609 [139] v[179]1 [167] 2612:[139] v[177]1 [167] 2615
  311. 2610 [153]:[153] v"lp's wurden abgesetzt."
  312. 2611 [137] 2620
  313. 2612 v[178]1000:[137] 2615
  314. 2615 [153]" die lp wurde"v" mal verkauft."
  315. 2616 [137] 2610
  316. 2620 [153]:[153]:[153]" es ist zeit, auf tour zu gehen !!!"
  317. 2621 [137] 2625
  318. 2622 v[178]v[171]fc:[137] 2609
  319. 2625 zs[178]v[172]2
  320. 2630 [161] aa$:[139] aa$[178]"" [167] 2630
  321. 2640 [139] aa$[178][199](32) [167] 2650
  322. 2650 [139] v[179]2000 [167] 2730
  323. 2660 [139] v[179]15000 [167] 2760
  324. 2670 [139] v[179]25000 [167] 2790
  325. 2680 [139] v[179]50000 [167] 2820
  326. 2690 [139] v[179]95000 [167] 2840
  327. 2700 [139] v[179]150000 [167] 2880
  328. 2710 [139] v[179]200000 [167] 2910
  329. 2720 [137] 2860
  330. 2730 [153]:[153]:[153]" bei einer support-tour durch die klei-"
  331. 2740 [153]:[153]" nen clubs deutschlands erreicht ihr"
  332. 2750 [153]:[153]" genau"zs"closefans ...":[137] 2940
  333. 2760 [153]:[153]:[153]" bei einer headliner-tour durch die"
  334. 2770 [153]:[153]" kleinen deutschen clubs erreicht ihr"
  335. 2780 [153]:[153]" genau"zs" fans...":[137] 2940
  336. 2790 [153]:[153]:[153]" ihr macht eine support-tour durch"
  337. 2800 [153]:[153]" deutschland und erreicht"zs
  338. 2810 [153]:[153]" fans...":[137] 2940
  339. 2820 [153]:[153]:[153]" ihr macht eine headliner-tour durch"
  340. 2830 [153]:[153]" deutschland."zs" fans kommen!":[137] 2940
  341. 2840 [153]:[153]:[153]" bei einer euro-tour als support spielt"
  342. 2850 [153]:[153]" ihr vor"zs" fans !!!":[137] 2940
  343. 2860 [153]:[153]:[153]" ihr macht eine headliner-welttournee !"
  344. 2870 [153]:[153]" es sehen euch"zs" fans !":[137] 2940
  345. 2880 [153]:[153]:[153]" ihr zieht eine headlinertour durch"
  346. 2890 [153]:[153]" europa durch und spielt vor mehr"
  347. 2900 [153]:[153]" als"zs" fans !!!":[137]2940
  348. 2910 [153]:[153]:[153]"closeihr reist als support einer grossen"
  349. 2920 [153]:[153]" band durch die ganze welt und erreicht"
  350. 2930 [153]:[153]" mehr als"zs" fans !!!":[137] 2940
  351. 2940 [161] aa$:[139] aa$[178]"" [167] 2940
  352. 2950 [139] aa$[178][199](32) [167] 2960
  353. 2960 j[178]zs[173]8
  354. 2970 v[178]v[170]j
  355. 2980 [153]:[153]:[153]" eure plattenverkaeufe steigern sich"
  356. 2990 [153]:[153]" auf"v" !!!"
  357. 3000 [161] aa$:[139] aa$[178]"" [167] 3000
  358. 3010 [139] aa$[178][199](32) [167] 3020
  359. 3020 [153]"load"
  360. 3025 rr[178][181](10[172][187](1))[170]1
  361. 3030 [139] v[177]100000 [167] 3050
  362. 3040 [153]" ihr seid nicht in den charts...":[137] 3200
  363. 3050 [139] v[177]200000 [167] 3110
  364. 3060 [139] v[177]175000 [167] 3150
  365. 3070 [139] v[177]150000 [167] 3160
  366. 3080 [139] v[177]125000 [167] 3170
  367. 3090 [139] v[177]110000 [167] 3180
  368. 3100 [137] 3190
  369. 3110 c[178]0
  370. 3120 ch[178]c[170]rr
  371. 3130 [153]" ihr seid mit eurer lp "np$
  372. 3140 [153]:[153]" auf platz"ch" der charts !!!":[137] 3200
  373. 3150 c[178]20:ch[178]c[170]rr:[137] 3130
  374. 3160 c[178]35:ch[178]c[170]rr:[137] 3130
  375. 3170 c[178]50:ch[178]c[170]rr:[137] 3130
  376. 3180 c[178]65:ch[178]c[170]rr:[137] 3130
  377. 3190 c[178]75:ch[178]c[170]rr[172]2:[137] 3130
  378. 3200 [161] aa$:[139] aa$[178]"" [167] 3200
  379. 3210 [139] aa$[178][199](32) [167] 3220
  380. 3220 [153]"load"
  381. 3230 [153]" endabrechnung:"
  382. 3231 [139] v[177]250000 [167] 4000
  383. 3240 [153]" --------------"
  384. 3250 [161] aa$:[139] aa$[178]"" [167] 3250
  385. 3260 [139] aa$[178][199](32) [167] 3270
  386. 3270 [153]:[153]:[153]" name der lp:"np$
  387. 3280 [153]:[153]" verkaufte lp's:"v
  388. 3290 [153]:[153]" chart-platzierung:"ch
  389. 3291 vm[178]v[172]2[173]am
  390. 3295 [153]:[153]" verdienst pro mitglied:"vm
  391. 3300 [153]:[153]:[153]:[153]" 1= band aufloesen"
  392. 3310 [153]:[153]" 2= neue lp einspielen"
  393. 3320 [153]:[153]:[133]"";a
  394. 3330 [139] a[178]1 [167] 3360
  395. 3340 [139] a[178]2 [167] 3370
  396. 3350 [137] 3240
  397. 3360 [153]:[153]" schade...":[128]
  398. 3370 v[178]v[173]10:qp[178]0:[137] 1875
  399. 4000 [153]"load"
  400. 4010 [151] 53281,1:[151] 53280,1
  401. 4020 [153]"stop"
  402. 4030 [153]" eure band hat es geschafft !!!"
  403. 4040 [153]:[153]" ihr seid absolute megastars !!!"
  404. 4050 [153]:[153]:[153]:[153]" herzlichen glueckwunsch !!!":[128]
  405.